home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: MegaDisc
/
MegaDisc 45 (1996-03)(MegaDisc Digital Publishing)(AU)(Disk 1 of 2)[WB].zip
/
MegaDisc 45 (1996-03)(MegaDisc Digital Publishing)(AU)(Disk 1 of 2)[WB].adf
/
Programs
/
FLP_by_ANP
/
Beep.doc
/
Beep.doc
Wrap
Text File
|
1996-01-21
|
3KB
|
68 lines
*****************************************************************************
* Project Details *
* --------------- *
* Project Name: Beep *
* Project Version: 1 *
* Copyright: Anthony N Peck *
* Date: Thursday 1st June 1995 *
* *
* Contact: *
* 68 Woralul St *
* Waramanga ACT 2611 *
* AUSTRALIA *
* *
*****************************************************************************
* Summary *
* ------- *
* *
* Usage: Beep *
* *
* This is a nonsensical little program that "beeps" and flashes the screen. *
* Feel free to put it at the bottom of your cupboard and forget about it! *
* *
*****************************************************************************
; Some quick equivalents...
ExecBase = $04 ; Exec Base...ahem
_LVOOpenlibrary = -$0228 ; Exec function opens libraries
_LVOCloselibrary = -$019E ; Exec function closes libraries
_LVODisplayBeep = -$60 ; Intuition function
; An Exec Macro...
EXEC Macro
MOVE.L ExecBase,A6 ; Move Exec into a6
JSR _LVO\1(A6) ; Add Library offset and call function
Endm
; Program starts here
Openint:
LEA Intname,A1 ; Load the Intuition library
MOVE.L #$00,D0 ; Any version will do
EXEC Openlibrary ; Macro opens library
BEQ Exit ; If there's a problem, close down
MOVE.L D0,A6 ; Save the return address in A6
Beep:
MOVE.L #$00,A0 ; All screens to "Beep"
JSR _LVODisplayBeep(A6) ; Go do it!
Close:
MOVE.L A6,A1
EXEC Closelibrary ; Macro closes Intuition
Exit:
CLR.L D0 ; Clear D0
RTS ; Return To System
Intname:
DC.B "intuition.library",$00 ; Intuition library name